<!--#include file="include/inc_conexion.asp" -->
<% 
  	Dim S_LOGIN,S_NOMBRES,S_APEPATERNO,S_APEMATERNO,S_CODTIPOUSUARIO
	Dim CLAVE
	Dim sql,rs,perfil
	Session("S_LOGIN") = trim(Request("LOGIN"))
	CLAVE = trim(Request("passw"))
	perfil = 3 'Reportes
	'sql =" SELECT APE_PATERNO,APE_MATERNO,NOMBRE,TIPO FROM USUARIO_CONSULTA"
	'sql =sql + " WHERE ID_USUARIO_CONSULTA='" + cstr(Session("S_LOGIN")) + "' AND"
	'sql =sql + " CLAVE='" + cstr(CLAVE) + "' AND ESTADO='1'"
	
	sql = "SELECT APE_PATERNO,APE_MATERNO,NOMBRE, 'AD' as TIPO FROM USUARIO U, USUARIO_PERFIL UP " 
	sql = sql + " WHERE U.ID_USUARIO = UP.ID_USUARIO "
	sql = sql + " AND U.LOGIN='" + cstr(Session("S_LOGIN")) + "' "
	sql = sql + " AND U.CLAVE='" + cstr(CLAVE) + "' AND U.VISIBLE= 1 "
	sql = sql + " AND UP.ID_PERFIL = " + cstr(perfil)
	
	'Response.Write sql

	set rs=cnn.Execute(sql)
	
	if rs.eof then
	   
		rs.close 
		set rs = nothing
		Call Cierra()
		Response.Redirect "default.asp"
	else
		Session("S_CONECTADO")= "1"
	        Session("S_NOMBRE")= trim(rs("NOMBRE"))+" "+trim(rs("APE_PATERNO"))+" "+ trim(rs("APE_MATERNO"))
		Session("S_TIPO")= trim(rs("TIPO"))
		rs.Close 
		set rs = nothing
		Call Cierra()
        
		'parametros del sistema
		Session("numero_lineas")=30'numero de lineas para paginacion de reportes
		Session("ancho_pag")=800'ancho de la pagina para la impresion
		Session("hora_min")=8'hora de inicio de actividades de las oficinas
		Session("hora_max")=19'hora de cierre de actividades de las oficinas
		Session("exception_tipo_ticket")= "0" 'ticket que noseran evaluados, se parados por coma "18,19"


	
		Select case TRIM(Session("S_TIPO"))
			case "AD" Response.Redirect "admin.asp" 'administrador
			case "CO" Response.Redirect "consultas.asp" 'consultor
		End Select	
	end if
%>